home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Super Stacks! / Macworld CD.iso / HyperCard Archives / International / French v1.2.5.1 / Piles principales / Dépenses / card_2971.txt < prev    next >
Text File  |  1989-09-15  |  5KB  |  275 lines
  1. -- card: 2971 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2664
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the long date into card field "Titre"
  9. end openCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 1 (field)
  15. -- low flags: 00
  16. -- high flags: 6002
  17. -- rect: left=3 top=97 right=264 bottom=96
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 3
  22. -- text size: 18
  23. -- style flags: 0
  24. -- line height: 30
  25. -- part name: 
  26.  
  27.  
  28. -- part 3 (field)
  29. -- low flags: 00
  30. -- high flags: 6002
  31. -- rect: left=95 top=97 right=264 bottom=163
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 3
  36. -- text size: 18
  37. -- style flags: 0
  38. -- line height: 30
  39. -- part name: 
  40.  
  41.  
  42. -- part 4 (field)
  43. -- low flags: 00
  44. -- high flags: 6002
  45. -- rect: left=162 top=97 right=264 bottom=230
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 3
  50. -- text size: 18
  51. -- style flags: 0
  52. -- line height: 30
  53. -- part name: 
  54.  
  55.  
  56. -- part 5 (field)
  57. -- low flags: 00
  58. -- high flags: 6002
  59. -- rect: left=229 top=97 right=264 bottom=297
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 3
  64. -- text size: 18
  65. -- style flags: 0
  66. -- line height: 30
  67. -- part name: 
  68.  
  69.  
  70. -- part 6 (field)
  71. -- low flags: 00
  72. -- high flags: 6002
  73. -- rect: left=296 top=97 right=264 bottom=364
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 3
  78. -- text size: 18
  79. -- style flags: 0
  80. -- line height: 30
  81. -- part name: 
  82.  
  83.  
  84. -- part 7 (field)
  85. -- low flags: 00
  86. -- high flags: 6002
  87. -- rect: left=363 top=97 right=264 bottom=432
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 3
  92. -- text size: 18
  93. -- style flags: 0
  94. -- line height: 30
  95. -- part name: 
  96.  
  97.  
  98. -- part 8 (field)
  99. -- low flags: 00
  100. -- high flags: 6002
  101. -- rect: left=431 top=97 right=264 bottom=509
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 3
  106. -- text size: 18
  107. -- style flags: 0
  108. -- line height: 30
  109. -- part name: 
  110.  
  111.  
  112. -- part 9 (button)
  113. -- low flags: 00
  114. -- high flags: A003
  115. -- rect: left=409 top=274 right=304 bottom=503
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Recalculer
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   -- Initialisation des variables
  127.   set cursor to 4    -- affiche la montre
  128.   set lockscreen to true  -- ne pas visualiser les calculs interm√©diaires
  129.   put 5 into totalLignes
  130.   put 7 into totalColonnes
  131.  
  132.   -- affecte 0 √† la colonne de droite
  133.   repeat with ligne = 2 to totalLignes
  134.     put 0 into line ligne of card field totalColonnes
  135.   end repeat
  136.  
  137.   -- affecte 0 √† la ligne du bas
  138.   repeat with col = 2 to totalColonnes-1
  139.     put 0 into line totalLignes of card field col
  140.   end repeat
  141.  
  142.   -- Calcul des sous-totaux
  143.   repeat with ligne = 2 to totalLignes-1
  144.     repeat with col = 2 to totalColonnes-1
  145.       put line ligne of card field col into it
  146.       add it to line totalLignes of card field col
  147.       add it to line ligne of card field totalColonnes
  148.     end repeat
  149.   end repeat
  150.  
  151.   -- Total g√©n√©ral
  152.   repeat with  col = 2 to totalColonnes-1
  153.     add line totalLignes of card field col to line totalLignes of card field totalColonnes
  154.   end repeat
  155. end mouseUp
  156.  
  157.  
  158.  
  159.  
  160. -- part 10 (field)
  161. -- low flags: 00
  162. -- high flags: 2002
  163. -- rect: left=3 top=37 right=80 bottom=163
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 3
  168. -- text size: 18
  169. -- style flags: 256
  170. -- line height: 30
  171. -- part name: 
  172.  
  173.  
  174. -- part 12 (field)
  175. -- low flags: 00
  176. -- high flags: 2002
  177. -- rect: left=162 top=37 right=80 bottom=509
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 0
  181. -- font id: 3
  182. -- text size: 18
  183. -- style flags: 0
  184. -- line height: 30
  185. -- part name: Titre
  186.  
  187.  
  188. -- part 13 (button)
  189. -- low flags: 00
  190. -- high flags: 2000
  191. -- rect: left=10 top=272 right=306 bottom=48
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 20098 / 20098
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Base
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   visual iris close
  203.   go base
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part contents for card part 1
  209. ----- text -----
  210.  
  211. Hôtel
  212. Voiture
  213. Repas
  214. TOTAL
  215.  
  216. -- part contents for card part 3
  217. ----- text -----
  218. Lundi
  219. 240
  220. 175
  221. 90
  222. 505
  223.  
  224. -- part contents for card part 4
  225. ----- text -----
  226. Mardi
  227. 240
  228. 0
  229. 150
  230. 390
  231.  
  232. -- part contents for card part 5
  233. ----- text -----
  234. Mer.
  235. 0
  236. 0
  237. 367
  238. 367
  239.  
  240. -- part contents for card part 6
  241. ----- text -----
  242. Jeudi
  243. 265
  244. 0
  245. 208
  246. 473
  247.  
  248. -- part contents for card part 7
  249. ----- text -----
  250. Vend.
  251. 265
  252. 190
  253. 86
  254. 541
  255.  
  256. -- part contents for card part 8
  257. ----- text -----
  258. TOTAL
  259. 1010
  260. 365
  261. 901
  262. 2276
  263.  
  264.  
  265. -- part contents for card part 10
  266. ----- text -----
  267. DEPENSES
  268.  
  269.  
  270.  
  271. 0
  272.  
  273. -- part contents for card part 12
  274. ----- text -----
  275. Friday, September 15, 1989